home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 356 / defs / filecomm.def < prev    next >
Text File  |  1992-03-11  |  2KB  |  55 lines
  1. DEFINITION MODULE FileCommon;
  2. (*    File name: FileCommon.def                *)
  3. (*    Creation : March, 1985                    *)
  4. (*    Function : Common File structers and info        *)
  5. (*    By     : Stan Osborne                    *)
  6. (*                                *)
  7. (*
  8. *    Copyright (c) 1985, 1986 by
  9. *    Djavaheri Bros., Foster City, California.
  10. *    All Rights Reserved.
  11. *
  12. *    This software is furnished under a license and may be used and copied
  13. *    only  in accordance with  the  terms  of  such  license and  with the
  14. *    inclusion of the above copyright notice.  This software or  any other
  15. *    copies thereof may not be provided or otherwise made available to any
  16. *    other  person.   No title to and ownership of the  software is  herby
  17. *    transferred.
  18. *
  19. *    The information in this software is  subject to change without notice
  20. *    and  should  not be construed as a commitment by Djavaheri Bros.   No
  21. *    warranty is implied or expressed.
  22. *
  23. *    SCCID  = "1.3    11/16/87"; 
  24. *)
  25. (*    History of modifcation                    *)
  26. (*    Date        Who        Why            *)
  27. (*                                *)
  28. FROM StandardIO IMPORT EchoMode, LogMode;
  29. FROM Files IMPORT File; 
  30. FROM SYSTEM IMPORT ADDRESS;
  31.  
  32. EXPORT QUALIFIED FatalFileError, Input, Output, Log, 
  33.                  STDLog, STDInput, STDOutput,
  34.                  Echo, Logging, FileList, OpenList, 
  35.                  FreeDescriptors, NextLun;
  36.  
  37. TYPE
  38.      FileList = RECORD
  39.              Head, Tail : File;
  40.             END;
  41.  
  42. VAR
  43.     Input, Output, Log,
  44.     STDInput, STDOutput, STDLog : File;
  45.     Echo : EchoMode;
  46.     Logging : LogMode;
  47.  
  48.     OpenList, FreeDescriptors : FileList;    (* Ordered Lists *)
  49.     NextLun : CARDINAL;
  50.  
  51. PROCEDURE FatalFileError ( VAR module    : ARRAY OF CHAR;
  52.                            VAR procedure : ARRAY OF CHAR );
  53.  
  54. END FileCommon.
  55.